(safe_alloca_unwind): New function.

diff --git a/src/alloc.c b/src/alloc.c
index 0b80fd5d9e70dc5f673dcfe743605d83a121f1d8..897fe910a6e3662381416456ca02abff79fae935 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -579,6 +579,17 @@ xstrdup (s)
 }
 
 
+/* Unwind for SAFE_ALLOCA */
+
+Lisp_Object
+safe_alloca_unwind (arg)
+     Lisp_Object arg;
+{
+  xfree (XSAVE_VALUE (arg)->pointer);
+  return Qnil;
+}
+
+
 /* Like malloc but used for allocating Lisp data.  NBYTES is the
    number of bytes to allocate, TYPE describes the intended use of the
    allcated memory block (for strings, for conses, ...).  */